home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TJTOT10B.ARJ
/
DEMO.EXE
/
arc
/
DEMIO14.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
997b
|
47 lines
program DemoIOFourteen;
{demIO14 - single LinkIOOBJ input}
Uses DOS, CRT,
totFAST, totIO1, totIO2, totLINK;
Var
MyList: StrDLLOBJ;
ListField: LinkIOOBJ;
procedure FillList;
{}
var Retcode: integer;
begin
with MyList do
begin
Init;
Retcode := Add('Monitor');
Retcode := Add('Keyboard');
Retcode := Add('Mouse');
Retcode := Add('Light Pen');
Retcode := Add('Microphone');
Retcode := Add('LCD O/H Panel');
Retcode := Add('Modem');
Retcode := Add('Printer');
Retcode := Add('CD Rom');
Retcode := Add('Toolkit');
end;
end; {FillList}
begin
ClrScr;
FillList;
with ListField do
begin
Init(35,5,15,6,'Peripherals');
AssignList(MyList);
Activate;
gotoxy(1,20);
writeln('You chose item: ',GetValue,' - ',
MyList.GetStr(MyList.NodePtr(GetValue),0,0));
Done;
MyList.Done;
end;
end.